home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / macscripts / Helperl < prev    next >
MacBinary  |  1992-12-20  |  1.9 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Dec 20 17:37:20 1992, modified Sun Dec 20 17:37:20 1992, creator 'MPS ', type ASCII, 1262 bytes "Helperl" , at 0x56e 428 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 48 65 6c 70 65 72 | 6c 00 00 00 00 00 00 00 |..Helper|l.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 ee 00 | 00 01 ac a7 5a a6 20 a7 |........|....Z. .|
|00000060| 5a a6 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z. .....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 76 87 00 00 |........|....v...|
|00000080| 23 20 48 65 6c 70 65 72 | 6c 20 2d 20 70 72 69 6d |# Helper|l - prim|
|00000090| 69 74 69 76 65 20 68 65 | 6c 70 20 73 63 72 69 70 |itive he|lp scrip|
|000000a0| 74 20 69 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 6f |t if you| don't o|
|000000b0| 72 20 63 61 6e 27 74 20 | 75 73 65 20 4d 50 57 20 |r can't |use MPW |
|000000c0| 34 31 31 0d 0d 23 20 56 | 6f 6f 64 6f 6f 20 74 6f |411..# V|oodoo to|
|000000d0| 20 63 61 6c 6c 20 50 65 | 72 6c 20 66 72 6f 6d 20 | call Pe|rl from |
|000000e0| 74 68 65 20 4d 50 57 20 | 53 68 65 6c 6c 0d 0d 50 |the MPW |Shell..P|
|000000f0| 65 72 6c 20 2d 53 78 20 | 22 7b 30 7d 22 20 7b 22 |erl -Sx |"{0}" {"|
|00000100| 50 61 72 61 6d 65 74 65 | 72 73 22 7d 3b 20 45 78 |Paramete|rs"}; Ex|
|00000110| 69 74 0d 0d 23 21 2f 75 | 73 72 2f 6c 6f 63 61 6c |it..#!/u|sr/local|
|00000120| 2f 62 69 6e 2f 70 65 72 | 6c 0d 0d 24 68 65 6c 70 |/bin/per|l..$help|
|00000130| 20 3d 20 24 45 4e 56 7b | 27 50 45 52 4c 48 45 4c | = $ENV{|'PERLHEL|
|00000140| 50 27 7d 20 7c 7c 20 22 | 3a 50 65 72 6c 48 65 6c |P'} || "|:PerlHel|
|00000150| 70 22 3b 0d 0d 6f 70 65 | 6e 28 48 45 4c 50 2c 20 |p";..ope|n(HELP, |
|00000160| 22 3c 24 68 65 6c 70 22 | 29 20 7c 7c 20 64 69 65 |"<$help"|) || die|
|00000170| 20 22 43 6f 75 6c 64 6e | 27 74 20 6f 70 65 6e 20 | "Couldn|'t open |
|00000180| 5c 22 24 68 65 6c 70 5c | 22 2e 20 44 6f 6e 27 74 |\"$help\|". Don't|
|00000190| 20 66 6f 72 67 65 74 20 | 74 6f 20 73 65 74 20 50 | forget |to set P|
|000001a0| 45 52 4c 48 45 4c 50 2e | 22 3b 0d 0d 69 66 20 28 |ERLHELP.|";..if (|
|000001b0| 24 23 41 52 47 56 20 3d | 3d 20 2d 31 29 20 7b 0d |$#ARGV =|= -1) {.|
|000001c0| 09 24 74 6f 70 69 63 20 | 3d 20 61 73 6b 28 22 48 |.$topic |= ask("H|
|000001d0| 65 6c 70 20 74 6f 70 69 | 63 20 3f 22 2c 20 22 50 |elp topi|c ?", "P|
|000001e0| 65 72 6c 48 65 6c 70 22 | 29 20 7c 7c 20 22 50 65 |erlHelp"|) || "Pe|
|000001f0| 72 6c 48 65 6c 70 22 3b | 0d 09 24 68 65 6c 70 7b |rlHelp";|..$help{|
|00000200| 24 74 6f 70 69 63 7d 20 | 3d 20 31 3b 0d 7d 20 65 |$topic} |= 1;.} e|
|00000210| 6c 73 65 20 7b 0d 09 66 | 6f 72 65 61 63 68 20 24 |lse {..f|oreach $|
|00000220| 69 20 28 40 41 52 47 56 | 29 20 7b 0d 09 09 24 68 |i (@ARGV|) {...$h|
|00000230| 65 6c 70 7b 24 69 7d 20 | 3d 20 31 3b 0d 09 7d 0d |elp{$i} |= 1;..}.|
|00000240| 7d 0d 0d 6d 61 69 6e 3a | 20 77 68 69 6c 65 20 28 |}..main:| while (|
|00000250| 3c 48 45 4c 50 3e 29 20 | 7b 0d 09 6e 65 78 74 20 |<HELP>) |{..next |
|00000260| 75 6e 6c 65 73 73 20 28 | 2f 5e be 4b 59 5c 73 2b |unless (|/^.KY\s+|
|00000270| 28 5c 77 2b 29 2f 29 3b | 0d 0d 09 23 20 41 72 65 |(\w+)/);|...# Are|
|00000280| 20 77 65 20 69 6e 74 65 | 72 65 73 74 65 64 20 69 | we inte|rested i|
|00000290| 6e 20 6f 6e 65 20 6f 66 | 20 74 68 65 20 6b 65 79 |n one of| the key|
|000002a0| 77 6f 72 64 73 20 3f 20 | 0d 09 0d 09 24 66 6f 75 |words ? |....$fou|
|000002b0| 6e 64 20 3d 20 30 3b 0d | 09 66 6f 72 20 28 3b 3b |nd = 0;.|.for (;;|
|000002c0| 29 20 7b 0d 09 09 24 66 | 6f 75 6e 64 20 3d 20 31 |) {...$f|ound = 1|
|000002d0| 20 69 66 20 28 24 68 65 | 6c 70 7b 24 31 7d 29 3b | if ($he|lp{$1});|
|000002e0| 0d 09 09 6c 61 73 74 20 | 6d 61 69 6e 20 75 6e 6c |...last |main unl|
|000002f0| 65 73 73 20 28 24 5f 20 | 3d 20 3c 48 45 4c 50 3e |ess ($_ |= <HELP>|
|00000300| 29 3b 0d 09 09 6c 61 73 | 74 20 69 66 20 28 2f 5e |);...las|t if (/^|
|00000310| be 2f 29 3b 0d 09 09 2f | 28 5c 77 2b 29 2f 3b 0d |./);.../|(\w+)/;.|
|00000320| 09 7d 0d 09 72 65 64 6f | 20 6d 61 69 6e 20 75 6e |.}..redo| main un|
|00000330| 6c 65 73 73 20 28 24 66 | 6f 75 6e 64 29 3b 0d 09 |less ($f|ound);..|
|00000340| 0d 09 68 65 6c 70 3a 20 | 66 6f 72 20 28 3b 3b 29 |..help: |for (;;)|
|00000350| 20 7b 0d 09 09 69 66 20 | 28 2f 5e be 43 5c 73 2b | {...if |(/^.C\s+|
|00000360| 28 2e 2a 29 2f 29 20 7b | 0d 09 09 09 70 72 69 6e |(.*)/) {|....prin|
|00000370| 74 20 22 24 31 5c 6e 22 | 3b 0d 09 09 09 77 68 69 |t "$1\n"|;....whi|
|00000380| 6c 65 20 28 24 5f 20 3d | 20 3c 48 45 4c 50 3e 29 |le ($_ =| <HELP>)|
|00000390| 20 7b 0d 09 09 09 09 72 | 65 64 6f 20 68 65 6c 70 | {.....r|edo help|
|000003a0| 20 69 66 20 28 2f 5e be | 2f 29 3b 0d 09 09 09 09 | if (/^.|/);.....|
|000003b0| 70 72 69 6e 74 3b 0d 09 | 09 09 7d 0d 09 09 09 6c |print;..|..}....l|
|000003c0| 61 73 74 20 6d 61 69 6e | 3b 0d 09 09 7d 20 65 6c |ast main|;...} el|
|000003d0| 73 69 66 20 28 2f 5e be | 4b 4c 5c 73 2b 28 5c 53 |sif (/^.|KL\s+(\S|
|000003e0| 2b 29 2f 29 20 7b 0d 09 | 09 09 64 6f 20 7b 0d 09 |+)/) {..|..do {..|
|000003f0| 09 09 09 70 75 73 68 28 | 40 77 6f 72 64 73 2c 20 |...push(|@words, |
|00000400| 24 31 29 3b 0d 09 09 09 | 7d ca 77 68 69 6c 65 20 |$1);....|}.while |
|00000410| 28 28 24 5f 20 3d 20 3c | 48 45 4c 50 3e 29 20 26 |(($_ = <|HELP>) &|
|00000420| 26 20 21 2f 5e be 2f 20 | 26 26 20 2f 28 5c 53 2b |& !/^./ |&& /(\S+|
|00000430| 29 2f 29 3b 0d 09 09 09 | 24 63 6f 6c 20 3d 20 30 |)/);....|$col = 0|
|00000440| 3b 0d 09 09 09 66 6f 72 | 65 61 63 68 20 24 69 20 |;....for|each $i |
|00000450| 28 40 77 6f 72 64 73 29 | 20 7b 0d 09 09 09 09 70 |(@words)| {.....p|
|00000460| 72 69 6e 74 66 20 22 25 | 2d 33 30 73 22 2c 20 24 |rintf "%|-30s", $|
|00000470| 69 3b 0d 09 09 09 09 70 | 72 69 6e 74 20 22 5c 6e |i;.....p|rint "\n|
|00000480| 22 20 75 6e 6c 65 73 73 | 20 28 2b 2b 24 63 6f 6c |" unless| (++$col|
|00000490| 20 25 20 33 29 3b 0d 09 | 09 09 7d 0d 09 09 09 70 | % 3);..|..}....p|
|000004a0| 72 69 6e 74 20 22 5c 6e | 22 3b 0d 09 09 09 0d 09 |rint "\n|";......|
|000004b0| 09 09 72 65 64 6f 20 68 | 65 6c 70 20 69 66 20 28 |..redo h|elp if (|
|000004c0| 64 65 66 69 6e 65 64 20 | 24 5f 29 3b 0d 09 09 09 |defined |$_);....|
|000004d0| 0d 09 09 09 6c 61 73 74 | 20 6d 61 69 6e 3b 0d 09 |....last| main;..|
|000004e0| 09 7d 20 65 6c 73 69 66 | 20 28 2f 5e be 4b 59 2f |.} elsif| (/^.KY/|
|000004f0| 29 20 7b 0d 09 09 09 70 | 72 69 6e 74 20 22 5c 6e |) {....p|rint "\n|
|00000500| 5c 6e 22 3b 0d 09 09 09 | 72 65 64 6f 20 6d 61 69 |\n";....|redo mai|
|00000510| 6e 3b 0d 09 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |n;...} e|lse {...|
|00000520| 09 77 68 69 6c 65 20 28 | 28 24 5f 20 3d 20 3c 48 |.while (|($_ = <H|
|00000530| 45 4c 50 3e 29 29 20 7b | 0d 09 09 09 09 72 65 64 |ELP>)) {|.....red|
|00000540| 6f 20 68 65 6c 70 20 69 | 66 20 28 2f 5e be 2f 29 |o help i|f (/^./)|
|00000550| 3b 0d 09 09 09 7d 0d 09 | 09 09 6c 61 73 74 20 6d |;....}..|..last m|
|00000560| 61 69 6e 3b 0d 09 09 7d | 0d 09 7d 0d 7d 0d 00 00 |ain;...}|..}.}...|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000590| 70 20 35 07 47 72 6f 75 | 70 20 31 07 47 72 6f 75 |p 5.Grou|p 1.Grou|
|000005a0| 70 20 32 0c 52 75 6e 54 | 69 6d 65 20 44 41 54 41 |p 2.RunT|ime DATA|
|000005b0| 07 48 65 6c 70 65 72 6c | 02 00 00 00 54 45 58 54 |.Helperl|....TEXT|
|000005c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 75 59 |MPS ....|......uY|
|000005d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 a7 4f ac 61 00 00 | 04 ee 00 00 01 ac 5c 8f |...O.a..|......\.|
|00000600| 30 2e ff fe 4e 5e 4e 75 | 4e 56 ff f8 20 6e 00 08 |0...N^Nu|NV.. n..|
|00000610| 20 50 3d 68 00 5e ff fe | 20 6e 00 08 20 50 2d 68 | P=h.^..| n.. P-h|
|00000620| 00 58 ff fa 20 6e 00 08 | 20 50 0c 68 00 02 00 46 |.X.. n..| P.h...F|
|00000630| 66 18 4a 6e ff fe 67 12 | 20 6e 00 08 20 50 4a a8 |f.Jn..g.| n.. PJ.|
|00000640| 00 4c 67 06 4a ae ff fa | 66 06 70 00 60 00 00 70 |.Lg.J...|f.p.`..p|
|00000650| 20 6e 00 08 42 67 3f 2e | ff fe 48 6e ff fa 20 50 | n..Bg?.|..Hn.. P|
|00000660| 2f 28 00 4c 4e ad 10 ca | 30 1f 3d 40 ff f8 4a 6e |/(.LN...|0.=@..Jn|
|00000670| ff f8 66 46 20 6e 00 08 | 22 6e 00 08 22 51 20 50 |..fF n..|"n.."Q P|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 50 65 72 |...H..Mo|naco.Per|
|00000690| 6c 48 65 6c 70 22 3b 0d | 0d 6f 70 65 6e 28 48 45 |lHelp";.|.open(HE|
|000006a0| 4c 50 2c 20 22 3a 00 06 | 00 03 00 64 00 1c 01 dd |LP, ":..|...d....|
|000006b0| 02 3d 00 64 00 1c 01 dd | 02 3d a7 5a 6d e0 00 00 |.=.d....|.=.Zm...|
|000006c0| 00 43 00 00 00 43 00 00 | 00 00 01 00 00 00 00 1e |.C...C..|........|
|000006d0| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 49 |.....n..|.n...>.I|
|00000700| aa 38 12 00 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.8......|.>..MPSR|
|00000710| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 03 f0 ff ff 00 00 00 4c | 00 4f db f4 00 00 00 00 |.......L|.O......|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+